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Redacteur: Real Gagnon ( 544 Hermine #2 Quebec P.Q. GIN 266 ) 
Ce uiletin est conçu avec l'aide de traitement de texte 
TASWORD ТТ de Tasman Software (version TSzO068) 
ек d'une imprimante SMITH-—-CORONAÀA, Fastest BO. 


жж DANS CE NUMERO жж 


*PROGRAFNMIME GENERATEUR DE CARACTERE, redefinir complètement le 
set cde caractères du z068 et maintenant chose 


facile 


PROGRAMME 


LDIR, explorer les possibilités de cette instruction 
propre au 280. 


ЖРБРОаБКАММЕ : TOOLKIT LLTRARES 2058, exploiter 17 "EXTENDED COLOR 
Si А е cR n S - ^ S 
MODE" aui etait inaccessible 9 jusau'a ce Jour. 
*xTECHNMIQUE : Simuler les commandes SOUND et STICK avec 1а ROM du 
COT OT OI ISA 
C24 Е Ае та ата Та 


—— ——— 


T 
ACTUALITE SIN 


" * 

Ам moment mua 
disponible 
Officiel du 


scrdtesces lianes 
жене nord-americain, Le 
le САМАРА в EDS Electronics 
d DrivesDownsvicu ONTARIO, MST 


ате і сат 


CNE 


Si VOLLE 
non-mocdifi 


AR PET ДАМ 


d 


3 logiciels 
rire a E. 


ALBER 


er, pm 
zb 


Lëck du 
сім 
NIS 


Sur un 
я Pour 


n^ un mogha) 
BANK SHIO 


un tour ch 


3 


APLT OA. 
touch 


эш 
LUE СИ я 
d SQ ST 


+} пин 


Pour; 


PAPERI INE 


i SL С 


GENERATEUR de CAR 


Ce programme permet de redéfinir В 
caractères du TS2068, soit des codes ASCII 5 Pour се 
іғезіі y à 2 méthodes cimal ou binaire, Le progr 
eut da type "MENU DRIVEN", jae aue toute l'information пас 
pour bien utilisé le GEMERATEUR est inclus 
N’ ау ух аи? а choisir une des options proposeos, 


„gmit с 


aire 


des menus , VOUS 


SUR d m дед А Е A з o cv 
OPTION #1 -Cette option vous permet de complete 

к cteres aue vous n'auriez pas eu le temps de ker- 
miner, 


OPTION 


Permet une vue d'ensemble du travail accompli. 


OPTION £f 


ы: 


“Crest igi QUE VOUS créez vos propres caract 
imalsvous donnez une nouvelle vale 
Lots qui f ele 2T 
lacer le 


lai 


chacun 
5 binaire, 
d'une arilles 
ON INK) met la 


laisse a 176 t OFF (PAF td 


OPTION Ba» 


Sur 5 du travail 
pour l*'utili эп future 


VOUS Seront d в alors, 


OPTION #8 


option vous permet d'agencer vos caracteres Ou 
comme bon il vous semble et "ier a — l'ecran 
A LOOK" de vos carac! ou UDs vous 


UD Ga 


si le "поцува 
plait. 


OPTION An 


= " 
vom nouwv caracteres et recopie 
SINCLAIR standards, 


"n 


OPTION S10-Fin 


РА * 
effectue, a noter 
d 


programme. La commande МЕШ 
* . 
: am lr, 


Sont toujours en 


Votre 


l'u- 


a 


ire pointer Та cett 

36060 et PONE це revenir au 
* жарт e "n т, ën Let MA es ^ 

Pates: PORE 2025065,0 et PONE 23507,50. 


% 
Ceres 


Les de 


BE E la ligne 4500 sont une routine en langage mar 
chine qui copie très rapidement les caractère SINCLAIR dans : 
RAM. Veuil: noter que à la ligne 9800 il s'agit bien du TO 
BIN. ecrire BIN lettre par lettre, 


GAG 
E E EEN GENERATEUR de CARACTERES GAG-0 1984 
2 CLEAR &3000 
10 ай SUR 9500 
15 BORDER D: PAPER 0: INK 5: CLS 
14 LET 0=0: LET іп=0: LET сөріге 
UREN ee iain f ed э шй MENU 
25 G0 SUR 150 
30 CLS : PRINT АТ 0,4; INVERSE L:'GENERATEUR de CARACTERES"? AT 1,9:"GAGNON-a 198 
cteres"'" 2-Vue du set de caracteres"'" I-Modificaticn d'un caracteres''" 4-Charge un set d'UDGs" 
35 PRINT * 5-Vue des UDGs''" &-Modification d’un Шая!" 7-Sauve caracterez/UDGz" 5 d'essai"? 
cteres"'"10-Fin du programme" 
40 PRINT °’ TAB ze, -UDG- signifie °" USER DEFINED GRAPHIC." 
45 INPUT "Votre choix (1-Bji'si 
3B IF (012104017100) THEN 60 TO 45 
35 ВЕЕР .1,3%1: FOR а=0 TO 7: ВЕЕР a/100,60: PRINT AT із, OVER 1; PAPER aj" 
100 IF 1=10 THEN NEW 
105 GG SUB 10054110081): GO TO 30 
TIO REM o ee Eege CARACTERE SINCLAIR 
155 POKE 23507,80: RETUR 
EE CARACTERE REDEFINI 
185 POKE 23507,249: RETURN 
200; REM a НИЕ: OPTION #1 
205 LET copie= МОТ copie 
210 CLS : PRINT АТ 10,15" CHARGE d'un set de CARACTERES” 
215 60 SUE 2000: RETURN 
SO RENE E OPTION #2 
385 CLS : PRINT AT 0,3: INVERSE ti VUE du set de CARACTERES ' 
310 PRINT '''sDu code ASCII 32 а 127'''Sauf STICK et FREE" >! 
315 IF NOT copie THEN 50 SUR 9500 
320 GO SUR 140 
325 PRINT ° "$: FOR іг! TO 94 STEP à: FOR 4=0 TO 5: LET Ие СН СИИ 
330 IF =" STICK " OR Jet FREE " THEN NEXT ji 
335 PRINT j$" vr NEXT j: NEXT i 
340 GO SUB 150: PRINT АТ 20,0;"Une touche..." : PAUSE O: RETURN 
pes c ыш з „А Эй сузу г» үл OPTION #3 
405 CLS : IF NOT copie THEN GO SUE 9400 
410 PRINT AT 0,7; INVERSE 1:* MODIFICATION * 
415 INPUT "Quel caractere:": BME cá 
420 PRINT ''Le caractere mr: 60 SUB 140: PRINT Crit GO BUR 150: PRINT ***...,. "ы: PRINT Sgr? 
425 IF CODE с$=0 THEN ВЕТ URN 
430 LET kzi44: GO SUR 2050: LET a=3: LET 11=0 
435 FOR х=159 TO 152 STEP -1: LET aza*i: PRINT AT 8,10:: FOR gz112 TO 119 
440 GO SUB 2050 
343 NEXT уг IF 1=3 THEN PRINT OVER 1; INK I$" "3 INK 8; PEEK (54000 (Әжі CODE С-З) 
446 IF 1=6 THEN PRINT OVER 1; INK 1i" sr INK 6: PEEK | USR сені) 
447 LET ішін: NEXT x 
30 LET kz?2: 60 SUR 2050 
453 LET 1-13: 
455 FOKE 22458,0: INPUT "Binaire ou Decimal (b/di:"i LINE i$: IF i$="b" THEN 50 TO 2100 
IF i$ <> "d" THEN G0 TO 455 


auri"; LINE уйі IF v$z'* THEN 60 TO 445 


S-Efface vo 


4''' INVERSE Di 1-Сһағав un set de 


ac 


"; NEXT 


Cara 


Di 


470 IF п>255 THEN 60 TO 445 (soie, de le: pe pie cue) 
471 IF ізі THEN POKE (6400084 CODE с$-32)+4),л ~ 
472 IF 155 THEN POKE USR chyn 
475 LET men: PRINT AT 1,103: GO SUB 2080 
АВП FOR usi TO 8: 60 SUR 2070: NEXT w: PRINT OVER i; INK Li" ^": INK арт: LET lelel: NEXT а 
485 INPUT "': PRINT 8i"Le resultat est [ "it 60 SUB 150: PRINT Шс}: 60 SUE 150: PRINT 80;" 1 pour С "ic; J": PAUSE 32 


0: 60 Tû (400 AND 1=3}+0700 AND 1=8} 

ОВО НЕМ, ии тз 2-24 2.74.7 р OPTION #4 

505 CLS : PRINT AT 10.9; INVERSE 1;" CHARGE UDG: 

510 60 SUP 2000: RETURN 

580 БЕМ ааа VUE des UDGs 

205 CLS : PRINT AT 0,9; INVERSE 1$" VUE des U D Gs "7777? 

810 FOR j=144 TO 152 STEP 2: PRINT ' "i CHR$ ji" °; CHR (ізін: NEXT j 

515 PRINT : PRINT : FOR ізі TO 152 STEP 2: PRINT * °; CHR$ ij" "3 CHR (air NEXT i: PRINT °°" "¢; CHES 154: PRINT °°? 

"Une touche..."': PAUSE 0: RETURN 

VOD RENS Ose 7 буы ri MODIFICATION UDG 

705 CES : PRINT AT 0,5; INVERSE 1:8 MODIFICATION UDGs " 

e POKE 24555,8: INPUT 'Quel T iG (АД: LINE сї: LET о=0: IF CODE c$-D THEN RETURN 
5 IF СА" OR с> "0" THEN 60 TO 710 

720 PRINT "Le UD G EF SEN ( CODE C$479);" Le Tic" F 

725 LET c$- CHAS ( CODE c$472): GO TO 43D 

SAUVE UDG/CÀR 


2-UDGs"'" J-Caractergs*UD6s* 


F pt "n ER 3 THEN 80 TO B15 
i : IF с=1 OR c=3 THEN PRINT "Sauve les caractere "ri" INPUT "Le nom"; LINE n$: PRINT nf''Pour utiliser Ces caracte 
tests dans vos programme:'"''CLEAR 43999:LOAD nom CODE" "POKE Z3505.0:POKE 22507,249": SAVE n$ CODE &4000,758: 60 SUE 850 
835 (LS : IF c <> 1 THEN PRINT "Sauve les UDGs:*:: INPUT "Le nomi": LINE пФ: PRINT n$'''"Pour utiliser ces UDGs:'" "LOAD no 
т CODE": SAVE пф CODE USR "а", 1455: GO SUB 930 
ean RETU IM 
5 : IF vés'o" THEN PRINT '"Ie verifie "int: VERIFY пф CODE : PRINT U! 


А 
s 1" TABLE 


1i ЕСІ GHT UC Ree " AND n=2i+( UDGt(A-U) ° AND n=l) 


ER pour Terminer... .": GO SUE 160 
4517.2 
930 ; LINE пФ 
935 50: RETURN 
LODOSREM С sms = cc а rats кы 
1005 PORE 21557,0: CLS : INPUT AT 15,0; АТ 0,0; "ETEE-VOUS SUR in/ni:'i LINE n$ 
М8 Gë е ^ THEN RANDOMIZE USR 83000: i copies NOT copie 


J f 


Кеч 


ис 


BL n 


LET QU 
D. 1 THEN 


ГЕТ! nz 


RINAIRE 


EN 50 SUE 8000: INPUT ** 

ЧЕЗ: LET әзі: LET bei: PRINT #0i'Allez 
өн OVER ЫЫ 
% 


ж: Ж "mr 0 


єч iub на Ex 


2140 GR a$-'U" THEN PRINT INK O; PAPER 7; АТ 
T bzbel 
214] LET acat((a$z'5")&(a(8))- (Cats 7 (3312): LET b=b+{ ( 
2145 IF а=8 AND b-9 THEN 60 TO 2500 
2148 IF b=9 THEN LET 5=1: LET азан! 
2150 60 TO 2116 
2308 LET аф" ЫМ 

LET 1z13: FOR a-D TO 7 

LET х= VAL (абы aH 

ENT АТ 1,21: INK 15" rn INK ёр: LET 1-14 

HEN POKE (5400048#( CODE c$-32)44),x 


HEN POKE USR сї+дүу 


LET n$-* NOTE: Modification-2in 
os touche -1- donne n 


naire,vous pouvez vous s 
et la touche -0- donne PAPER. 
: PAUSE 4: ВЕЕР .0001,50: PRINT 
LEN. mt: PAUSE 4: ВЕЕР „DODI é4: IF 22445 
NT $0: i RIG GHT Иасы 192 +} À АТ 0,0: NEXT 4 
LEN m$-32 TO LEN mé: PAUSE 4: PEEP „0001,40: 
De ызалы шы smod mnt СОЙ ROUTINE MACHINE 
1-0 Tå ) а: POKE T 1: RETURN 


n. 


41,0 


62000+1,а 


ederler all 


NE 1: 


| Е ia 


аккан тоза С ЯГЫП BASIC PNE 


Е RI [e " 7 


Commande 
C hie М буму Е 


AND B&üuiz'D"3):: RETURN 


lentement avec le curseur." 


аф= 5") 9))- aen pn n E OH) 


ervir des touches 5 a B pour vous deplacer 


30: BRIGHT 1; ТАВ іп TO 2 
LEN m$ THEN 50 TO 8050: 


og 


Zait AT 0.0: 


PRINT #0; PRIG АТ 


2068. “„ Т ДЕП 


ТУУРА 
ЕМ [СА 
ЕМ 2. 


пф C АФ» x ы mA x 


ав" ОН * AND AE 


LET ша, б) =а$ 


rn 


à l'interieur de la gri 


0,0: 


NEXT а: RETURN 


SPECTRUM Вс СИТ 


целой А 


Dour ie 


"len 
РВОМ. 11 ы 
S JQUND ou 


ne 


ВОТ x 


T 


ыл ПМ АЛ 
"cpu 75 DATA 6.6 


ч " SI 


8.16. Уа 16.10, 16 


NT 7070 


\ 


Dour plus d'informa 
rammation ce 
le 11 


SINCLAIR 


la pro 


Za une pazi 
ИШ INTE 


* xd 
blie chez Lë 


ER 


ce | 1 Ch 
aL э Lio Su n uon u u non o» wo» ü "soon n n n w e n nox on 


Mme wO 


2068 BASIC + Soo»D x,y;...; х,у 


Faires 


хі 


1 REM 
5 PRI 


алғы 
aL Те s 


dai cH SS 
10:" © 


эн 


T "IN Ap 


Пісте 
од 


"oc 


EN 


t mi 
valeur 


forme bins 


^ 
Cha aos 


Pour a 


ammet L D I R .. 
permet de démontrer 
230 contient. LDIR 
inztructionsqui occupe 
incroyable plusieurs opér: 


7 ^ D ў 
realise en un 


e 


e DONNEES (-4DIR-— par YVES GAGNON 


PRINT 'zzzz22z-z2z2-------' 
45 PRINT '"Mnemoniaues"," Code Machine" 
4} PRINT %----------- .,4------------ ы 


+ 
CH 


LET L(7)=1: LET LE10)2237: LET 1{11)=175: LET 
SSE DU ELOC'''D'OCTETS А  TRANSFERRER" "DANS 
ET Dis INT М: LET LG)zACGO- (LU 8256) 1: 60 EI? | 
DRESSE DU BLOC''"D'OCTETS8 А RECEVOIR" "DANG LE REGISTRE DE "rä 

ET Lt&] 


STRE HL ? "Ail? 


200 2 
210 LET 10 LET 108) зам" Ыт: L(5izA(2)-(L(5)4256): 60 BUB 510 | 
300 INPUT " NOMBRE" ' а MBFERER''"DANS LE REGISTRE ВС ? "AII 
3iB LET L(3)zA(3)/256: LET 1{9)= INT LE): LET 108) | 3)-(L(2)4255): 60 TO 520 | 
500 PRINT LD НАС Ke RU MERI TURN | 
| 310 PRINT LD DE, HAC NLUD T" NL) "HL: Si 

520 PRINT LD EG SAGD LODS SUD "SL OD 
30 PRINT "LBIR LEO RET 
340 PRINT "'RET",L(12) 

iR Mel TO 12: POKE (85520-1)4M, L (M) :. NEXT M | 


iT! 
#05" 455 POUR SAUVEGARDE D'LA ROUTINE" "<D POUR ВЕРИТ DU PROGRAMME"'"ZE* FOUR EXECUTER РОТЕ" 
o 


$ ="5" THEN SAVE ІЗІН" CODE 25520,12: PRINT #0i'Une touche...": PAUSE 0: RUM 

$ z'D" THEN RUN 

Y$ z'E' THEN RANDOMIZE USR 55520: PRINT #0; пе touche...": PAUSE 0: RUN 
0 


11540 GO TO | 
SAVE "LOIR" LINE 10: SAVE "'LDIR" LINE 10: VERIFY "LDIR': VERIFY "ОТВ" 


— E деи c 


Re 


nces qui existent entre 1: 
ferents modes vidéos impl lantés 
в 


ont pas accessibl 


m 


rt 


jus mo 
me son nom 
de la couleur est mul- 
ons: CIRCLE 123,97,80 


H 


s'applique à chaque octet. 


aucun РОЖЕ pour opérer. Quand nous 
5 informations aux а кү ‚Оп 


routines x et Y sont des 2 2 
па “demande. Aussi inclus dans le 
le programmeur 
appreciéstel le que е FILL e SCROLL dans les 4 sens. 
plus loin la liste complète du TOOLKIT еп ASSEM- 
'HERLOADER" qui se charge de 
TOOLKIT em mémoire et le sauver par la suite. 


Vous 


ELEUR ainsi qu'un 


Ревтіггетелі, fapez le. HEXLOADER puis RUN 500 pour se faire une 
copie de securité sur cassette,au cas où. Après cela.faites RUN 
et attendez. Si jamais ilu a une erreur dans les DáTAs,.le 
numéro de la ligne cu s'est produite l'erreur sera affiché à 1° 


est А 
tou fé ordre.le programme se termine avec le message 


2 erreur "OUT OF ВАТА", Alors faites RUN 550 pour sauvez vos 
codes, Un RANDOMIZE USR 52000 rend actif I'EXTEMDED COLOR МОЕ, 
un message de bienvenue devrait apparaitre au haul de l'écran, 
sinon faites PRINT USR 0 et rechargez le HEXLOADER pour 
vérification. Lors des utilisations futures du TOOLRIT.il est 
isportant de faire avant toute chose un (CLEAR 61999 pour le 
protéger de toute "invasion exterieure", 


description des possibilités du 
Ыы ordre d'apparition dans 


j| , rend en fonction D_FILET oui est 

tion des couleurs.D FILE? débute à l'adresse 
Р 30719. Le premier CALL met EXROE 
nice sont les SK du ROM suplémentaire que 


ig SPECTRUM. Puis nous appelons dans le 
t qui se charge de déplacer le 
"et bes tre chose. Le 
t le HOMES et renvoie 


Ш>» oe ou 


; mettre de lac 
HINK ainsi pour 
i pour FLA 

3-3 


+ к 


S SIRIGHT D £ LAS 
FLAT 0,0: ы USR 2057, 
PAPER 7 et d D avec dias 


E 5i vous 
ament l.le 2055 va 


remplis une région avec les attributs qu 
jusqu'au moment où elle rencontre ur 
' e 


(BXPAPERTEINK 


COMME ve 


MIZE USR 22049), 

plir notre cerc 
81 on examine | 
е déput zervent 


А 
fonction USR, À la 
PAPE 


E CALL 
- мы 


pelle une routine de 
andante dans 
EK DE 


1 Ou: E rz: 


CETA RT OY V 
-PRINT AT X. 


ша 


x et horizontaux 
ЕРЕК, і.е. 


mere еа 


Go © FER о INEO 
RMD LEE GO | 
ND Келе REM PAPER =] & BC INK} 
D PLOT ue 
45 INPUT USR 52059.papink,D: REM couleur sur le pixel... 
| 50 NEXT n 


‚ 85 ВЕЕР i-l: LET s$="APPUYE 
| BRIGHT 1; 


1 SUR UNE TOUCHE... eee" 
é0 PRINT АТ 20,0: BRIGH 1 


МК Ar CHR USR 62220: REM PRIN 


| 70 PAUSE 0: FOR 190 TO 31 | 
| 80 RANDOMIZE USA 52500: REM scroll -> droite | 

t 
| n | 


ti 
5 FORDER Q: PAPER 0: INK 1: RANDOMIZE Hes 62048: REM (5 
9 REM Dessine la maison 

10 PLOT 8,10 

20 DRAN 48,0: DRAW 0,48: DRAN -48,0: DRAN 0,-48 | 

20 FLOT 58,10: DRAN 70,20: DRAW 0,48: DRAW -70,-2 | 

40 PLOT 8,58: DRAN 24.30: DRAH 24,-30 d 

50 DRAW 70,20: DRAN -24,30: DRAW -70,-20 | 

180 PLOT 0,130: DRAW 175,-10: DRAW 80,10: DEAN 0,45: DRAW -255. 
0: DRAH D,-45: REM Le ciel | 
| 70 PLOT 0,50: DRAW 30,30: DRAW 135,-5: DRAW 90,-25: REM TR 
be 
[300 PLOT INVERSE 1,15,15: INPUT USR b2105,5,.0: REM FILL 54 
с PAPERD & INK S EUM 
[310 PLOT INVERSE 1,57,20: INPUT USR 82108,6,0: PLOT INVERSE 
1,12259: INPUT USR 67105:6,0 

320 PLOT  INVERSE 1,32, tl: INPUT USR 52105,2,0 Н 
p. PLOT INVERSE 1,175,150: INPUT USR 62108,1,0: REM FILL ( d 
al} f 
340 PLOT INVERSE 1,0,116: INPUT USR 52105,4.0: REM FILL (herb 


е) 
[700 CIRCLE INVERSE 1,180,150,10 | 
5 REN _ ан EE DEMO3 645-095 
10 BORDER 1: BRIGHT 1: PAPER 1: INK 7: RANDOMIZE USR 42046 
20 CIRCLE 125,87,28 
30 PLOT INVERSE 1.125,87: INPUT USR 42105,14,1: 
140 CIRCLE INVERSE 1,110,95,10 
EN CIRCLE INVERSE 1,140,95,10 
150 PLOT 110,75: Шш INVERSE 1, 30,0, РІ 


100 LET a$- INKEY$ : IF a$z'" THEN GO TO 100 


110 IF a$z"5* THEN RANDOMIZE USR 62445 

120 IF a$-'8" THEN RANDOMIZE USR 62500 

130 IF a$="7" THEN RANDOMIZE USR 622 

140 IF a$-'5' THEN RANDOMIZE USR 12344 x 
150 60 TO 100 Sue. puwara d 


amg ms RR ERS o n e e 


tO 


б, cei = PONES ПЕТ 


> H 
L 
00010 LME 
00020 i*TOQLKIT ULTRA RES 208% 
00030 :* GàG-o JUILLET 854 
00049 5+ version 3.5 + 
00050 ннен 
DDOSD ; 
00070 ORG 82000 
08080 DISP 53535 
00090 
00100 :Suitch D FILE 2 
00110 ;-;520003 point d'entree 
О0ї2Б______________________ 
00130 SW LD 26, 65278 
00140 CALL 25733 :EXROM 
00150 LD Av? {МОЕ 2 
00150 CALL 3725 :CH VID 
00170 LD BC 255 
00180 CALL 54501 НОМЕ 
00190 CALL CLS 
00200 MOT LD HL,TEXT imessage 
08210 LD B.54 du 
00220 LOOP1 LE А, (HL) debut 
00230 RST #10 
00240 INC HL 
00250 DJNZ LOOPi 
00260 LD HL, 265400 
00270 CALL 500 
00280 LD НЬ, 24575 
00290 500 1р В,32 1sou- 
00300 LD А, 128+? jligne 
00310 LOOPZ LD (HL),A ауес 
00320 INC HL 3FLASH 
00320 DJNZ LOOP? 
00340 КЕТ 
EEA E nn uns eue à 
00560 :Effacement d'ecran 
00370 1-29208884 point d'entree 
Не ope. eR e 
00290 CLS САП SEA  :CLSROM 
HR go coa so o дыш 
00410 1-2520814 point d'entree 
00430 E 
00430 (LS? LD А, (23593) 
00440 LD (24575),А 
00450 LD HL, 24575:р FZ 
0040 LD DE,24577 
00470 LD BC,4144 
00480 LDIR 
00490 ВЕТ 
SOD Fo 
00510 jAttribut sur PLOT 
00520 f-é20é49d point d'entree 
00530 ; 


00580 


ATIR CALL 7132 jevalue 


00550 CALL 9824 param, 
00560 reg Cink+O*paper 
00570 ireg.fflashtbrght 
00580 LD А,В 

00590 CP 9 

00500 JR Г. АТТЕР 

00510 iBEODODOQXX C 
00520 RR B 

00530 RR E 

00540 RR E 

00591 AND SCH 

00480 }8=ХХ000000 0 
00570 АТТЕР PUSH EC 

00580 LD ВС, (23877) 

00590 CALL #2503 :5CRML 
00700 НЕ FILE! 
00710 LD Қ.8192 

00720 ADD HL.RC 

00730 1HL-5D. FILE? 
00740 POP RC 

00750 LE A,B 

00780 ADD AC 

00770 LD (HL) A icauleur 
00780 БЕТ 

00790 
00800 ; FILL 

00810 :-2521050 point d'entree 
UO EES 
00830 FILL CALL 7122 jevalue 
10840 CALL 9526  iparam. 
00850 CALL &RGU 

00820 LD DE, (23577) coord 


00870 НЕҮТЕ 
00980 
00890 
00900 
00910 
00920 RPIX 
00930 
00940 BEYTE 
00950 
00950 
00970 
00980 
(0990 BYTE 
01000 
01010 
01020 
01038 
[1040 
01050 
01050 BYTE! 
01070 
01080 
01090 


CALL BYTE 
JR NZ,RPIX 
CALL ТВҮТЕ 
INC D 

JR. HEYTE 
LD DE, (23877) 
ВЕС D 

CALL ЕҮТЕ 
RET NZ 
CALL DEYTE 
DEC D 

JR BBYTE 
LD ED 

LD GE 
CALL $2503 
LD BA 

INC E 

LD 6:8 

LD A, (HL) 
RLCA 

DJNZ BYTE! 
BIT Oé іріх.17 
БЕТ NZ $1 RET 


өше 
iy=y+] 


:SCRHL 


01100 SET 0,4 10-31 
01110 LD B,C 

01120 BYTE2 RRCA 

01130 DJNZ BYTEZ 

01140 (HL) A {РОТ 
01150 LE 36,8192 

01180 ADD НЕ, ВС 

01170 LD А, (ATTPL) 

01180 LD (НЕА айт. 
01190 RET 

01200 DEYTE INC E pex 
01218 CALL ЕТЕ — iverif. 
01220 JR NZ,RPIXZ 

01230 JR DRYTE 

01240 RPIX2 LD А, (23677) restor 
01250 LE Е.А 

01250 БЕТТЕ ПЕС Е x 
01270 CALL BYTE neri 
01280 - NZ.RPIXS 

01270 H GEYTE 

01200 ЕРІЗЗ LD Aa (23877) 

01210 Е, А 

01520 RET 


01330 ATTPL DEFE 0 jattri. 


01340 ARGU LD A.P SFLASH- 
01350 CP D TERGHT? 
01350 JR Z ARGI 
01370 RR Е 
01580 RR F 
01390 RR E 
01400 AND SCH 
01410 ARGI LD AE 
01420 ADD А, С 
01430 LD CATTPL}, А 
01440 RET 
OEASEL E o oe a tea n 
01460 sAttribut avec PRINT 
01470 1-2022200 point d'entree 
BE за ола оа оа з 
01490 PR LD HL, ЭВ) VARS 
81500 LD BC,CQISCS92 FELINE 
01310 U1 PUSH HL 
01520 SEC H, BC 
01920 JR Z, МЕМ 
01550 POP HL 
01550 LD А, Н) 
01560 CP 83 :CODE" S" 
01570 JR Z.VERI 
01580 INC HL 
01590 JR Ul 
01600 MEM RST 8 15% EST 
01510 DEFE 1 ;PAS LA 
01620 VERI INC HL 

Ouen cur GE 


———— 0. Е 
+ eO RES 
(SAM, dela озде ргееетичде,) 
01230 - INC HL 
01520 LD А, (HL) 
СРО 
JR Z.PRS 
INC HL 
MS JR Ul 
01590 ERR В5Т 8 sretour 
01700 DEFP 1 3BASIC 
01710 PRS DEC HL 
01720 LD R, (CIL) 1LENSS 
01730 INC HL 
01740 U2 INC HL 
D1750 PUSH ВС 
01750 CALL PRAT 
0177 POP EC 
01780 LD A, (HL) 
01790 RST #10 
01800 DJNZ ір 
01810 LD 4,8 ur, 
01920 RST #10 ЕРТ 
01830 LD C (HL) 
{11840 КЕТ 
01850 PRAT PUSH HL 
01850 LD HL, (23885) 3DF CC 
01870 LD А, 123595) ;ATTT 
01880 LD DE,8192 
D189n ADD HL,DE ШЕ? 
01900 LD 2,8 
01919 PRATI LD (НЕ, А jattr, 
01920 INC H 10256 
0:93 DJNZ FRATI 
01940 POF HL 
01950 ДЕТ 
01350 | ВУИ Е ына sus 
01970 :SCROLL vers le HAUT 
01980 1-252292d point d'entree 
01990 ня 
02000 SCRHi CALL 2341 — ;ROMSCR 
02010 ; 


92020 ;-2522954 
02030 $ 


82040 SCRHE LD HL, #2000 ;D F2 


02050 LD ПЕ, #5ЕО BUFFER 
02050 Hi PUSH DE 
02070 PUSH HL 
02080 LD 4,3 

2090 LD RC,820 сыза 

D HZ PUSH BC 

12110 PUSH HL D Р2-> 
02120 LDIR :BJFFER 
02130 PüP DE 
02140 LD C,8ED iscroll 
02150 LDIR ІШЕ) 
0210 LD 2,7 
02170 ADD НЕ, ЕС 


02180 DEC А 
02190 POP EC 
02200 JR NZ, HE 


DJNZ H4 
POP HL 
POP DE 
INC H 
LD AH 
CP #58 
02310 JR GHI 
02320 НЬ k ПЕ, НЕ 


02330 H7 LD (HLE 


02300 


i ОН ЕТТЕР 5D F1 
tn. LD ВЕ, ВРЕ ;РОЕРЕН 
02430 LD 4,0 mettre 
02440 LD EC,VARZ за Û la 
02450 LD (EC).4 "Lionel 
02450 JR SCRE 
тез ner e ШЕ ар 
03480 :-352350d point d'antres 
EE oc ааа ма. 
02900 SCRR2 ті -o р F2 
12510 ; BUFFER 
02520 93) mettre 
02930 ТАТТ P 
05540 HEIM 
02550 SCRE PUSH DE зтете 

PUSH HL sprinci 

Ц 4,3 sque 


LD EC,820 
PUSH BC 


PUSH HL 

LDDR 

PüP DE 
02530 LD C,8ED 
03640 LDDR 
02550 LD £,8F? 
02580 ADD HL.RC 

FOF RE 

DEC А 
02590 JR NZ, EI 
02700 B2 LD AC 
02710 LD А, (VARZ) 
02720 B3 1р Е), А 
03730 pe? DE 


02740 DINI ВЈ 
02750 POP HL 
02750 ҒӘР DE 
02770 DEC H 
0 LD AH 
PUSH AF jgsi-ce 
LE &,(VARZHIDFi ou 
CP D НЕЗ 
JR МЕ, ВВА 
POP AF 1Р1. 
CP $50 ilimite 
JR NC, SCRE 
XOR А 
LD В, #20 
LD (DEA 
DEC DE 
MNZ B4 
JR SCRB2 
РОР AF ФЕ? 
2 CP #70 ilimite 
02940 JR NC, SCRE 
02950 XOR À 
02921 LD P. #20 
02970 RBBá LD (DEl A 
02980 DEC ТЕ 
02990 DJINZ BER4 
52000 БЕТ 
OM fee as LS КИЕ 
23020 SCROLL vers la GAUCHE 
03030 }-3524454 point d'entree 
ОЗОД E co There д, ло лу. 
03050 VARI DECH D 
03050 VARZ ГЕЕВ û 
03070 ; 
03080 SCRG1 LD HL, 18985 1D Fi 
92090 LD DE, 15384 
03100 LD Ай 
03110 LD ЕС, VAR 
02120 
82120 
03140 ; 


93150 : 


03120 
03170 
03180 
03190 


(22 
EL 


03250 
03270 


SCRG2 LD НЕ, 24577 iD F2 
LD DE,24576 
LD А, (23593) 
D PC VARZ 
LD iBCHA 


SCRG 


ME 


у: с ; 
tauna deis 


03280 
03290 


си ша ca CH 
CM CJ GJ E 
C Cl GG 


с 


г 
Cd Cl г Ld 
: Le са Gd 


єз ca 
д C4 
Ca ш 
че C 


cJ 
+ 


із 
جل‎ GJ ва rz 


TI CE 
Eu cl 

+ 
сз ме сэ 


с 

per] 

Kë 
ca 


4. 
ц бе Cn 
c 


> 
CO 
ша CO C3 


03410 
02520 
02520 


13440 


03550 


e 
A 
c 


£z 
11 
са 
= 


ere 

02710 
75 
2 


B E 


WEE ce e) 


INC DE 

INC HL 

LE EC, (VAR!) 
DEC C 

JR М2,61 

RET 


009 к dantis 
SCRDI LD'HL.22526 :D F1 

LD DE,22527 

LD 4,0 

LD BC, MAR? 

LD (EE) А 

CALL SCRD 


SCRDZ LD HL, 30718 ШЕ? 
LD DE, 30719 
LD А, (23593) 
LD FC, MAR? 
LD (ВС),А 

CRD LD EC.192 

1 LD (VARII ЕС 
LD £6,31 
LDDR 
LE А, (0482) 
LD (DEA 
DEC DE 
DEC HL 
LD ВС, (VARI) 
DEC C 


JR NZ,Di 

RET 
EPE ле се. 
TEXTE de BIENVENUE 
ПО TET ТЕР PULTRA HIGH 7 


DEEN /COLOR RESOL/ 
DEF“ /UTION 2058/ 
ЖЕМ /TOOLKIT/ 
DEFM / / 


ПЕРМ /ЗАб-а  / 


ULTRA 


TOOLKIT | 


dressed Bu 
25 LET = 

60 TO 20 
30 PORE 2 

S ET ligne]; 


40 ЗЕЕ м 


eztot THEN PRINT "Ligna 'iliange:' 0 
net: 50 15 


995 І DE 221546540760 

Las? 20670087 2210080042 EST T T2310F CCPCDE SOS SABDS C320050210 
e 

101 DATA Eeer LIA EE ODC RIDE E BESCDCSEDA 

27 5703060 2501002008 'COCDDCITECDGOZACDF SF 2EDSR7DSCCDCOFZ200 


"ESE 527050156 enenr2enc 


FOTO 10207 


HE 


ODTEFECUZSUBCB IBCBIBCE1SESCOTBS132FBF 
ELTEFESX2BUSZGIBFZCFO:Z323TEFEDUZBDS2 


ЗЕРЕН ЗА СЕ 
30218ёП021РЕ7711РЕЕ5ЕЗАБр5б 


ESZED үлі 2 
І8Е5ЗЕ 


QIOEDA3ENF2011FDàE 


APERET В 
Қызды ARE NH CL 


020202020474147206 
0000000 0000000000000000 


.l': PRINT "Je verifie "i VER 


Sauve I'HEXLOADER 
Ї 1: PRINT "Ok," 


Г 


CODE А2000, 6201 PRINT "Je verifie "i: VERIFY 


PIXEL 37, 118 


TYPICAL 
CHARACTER 
SPACE (7,4) 


PRINT AT LINE# 


RESERVED 
LINES 


| 


: f c D а; 
= e “ 
PRINT АТ OR PRINT TAB COLUMN # оке, ехал do Әсо 


01234 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 


0 1 168 
1 PRINT TAB 10 ON LINE #3 160 
: i 152 
3 | PLOT 223,136 144 
ч | м. ______ 1 138 
5 PRINT АТ 7,4 | да 
6 ! | 120 
Қан те у ка sr мы а ао. a ar 220 اا‎ 112 
8 | Kg 
9 1 
| 96 
10 M RE ORDERED RENNES " 88 
11 80 
12 A 
15 PRINT AT 11,16 
(LINE#, COLUMN #) 64 
14 PLOT 84,36 56 
15 (HORIZONTAL, VERTICAL) ps 
16 40 
17 тетте 32 " 
18 24 
19 8 
20 8 
21 0 


23 
о D © = сч О оо сч о Z*"8289198988527929uü8929SÓ 
- N 26 о Led CH чо ч 
бсттозспсаоаеогысохооог ов GG SE 
wee ot woer о коо со = ост NOR ороо ба ое 
о о о e осоо чю 
е-птбсзчасогкссскгасостоееогкеоеачцчавяав 


PLOT HORIZONTAL (X) 


PLOT VERTICAL (Y) 


SINCLAIR QL ` 


* 32 bits 

* Memoire de 128 K 

* 2 Microdrives 

* Haute resolution couleur 
* 4 Logiciels inclus 


- CONFIGURATION DU SYSTEME 

Le systeme de base ($ 799.95) inclus deux microprocesseurs, 
128 К de memoire , un systeme d'exploitation, un langage de 
programmation, un clavier QWERTY de 45 touches, 2 microdrives 
d'une capacite de 100 К chaque, 4 logiciels sur microdrive, 4 
microcassettes vierges, source d'alimentation , les cables et 
les manuels, 


— HARDWARE 
RAM: 128 К, peut etre augmente a 640 К. 32 К pour memoire- 
ecran, 
ROM: 32 К, contient Sinclair SuperPASIC et Sinclair 0005, 
le systeme d'exploitation. 
CPU: MOTOROLA 88008, 7.5 Mhz + INTEL 8049 
VIDEO: Graphique haute resolution en 2 modes: 
Made 1- 512x255 pixels (4 couleurs) 
Mode 2- 255x255 pixels (8 couleurs) 
De 40 a 85 caracteres par ligne. 
ALIMENTATION: 120 V, 50 Hz, 9 Vcc a 1.8 А, 15,6 Vac a .2 А 
du transformateur, (19 watts a l'ordinateur?) 
DIMENSION: 138 mm x Ab mm x 472 mm 
POIDS: 1388 а (3.055 1bs.) 


IRGN ЛЖ ОУУ 


390, BOUL. CENTRAL NORD DUBERGER QUÉBEC СІР 3P9 


SINCLAIR QL 


LOGICIEL 
-SYSTEME D'EXPLOITATION 
0008: Possibilites de 'MULTI-TASKING" 
Schedule de priorite d'execution 
Fenetres (Hindous? 
AL QILL: Traitement de texte 
QL ABACUS: Tableur (Spreadsheet) 
GL ARCHIVE: Base de donnees. 
QL EASEL: Graphique 
INTERFACES 
-Trappe pouvant recevoir jusqu'a 32 К de ROM supplementaire. 
-2 prises JOYSTICKS. 
-Trappe pouvant recevoir jusqu'a .5 Mb de RAM supplementaire, 
-2 R5-232-C ‚бе 75 a 19200 bauds а la transmission et recoit 
jusqu'a 9600 bauds. 
-Prise TV 
-Prise moniteur, RGE et monochrome. 
-QLAN permet de relier 54 QL ensemble. 


tél.: 527: 6103 


